home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / printing / printque.arc / STOP_PRT.S < prev    next >
Text File  |  1987-04-26  |  1KB  |  35 lines

  1. ;         .      .                .      
  2. ;
  3. ; PRINT STOP for the Atari ST      rev -      4/25/87
  4. ; Copyright (C) 1987 by Wayne S. Arczynski
  5. ; All rights reserved
  6.  
  7. ; Equates
  8.  
  9. trap13:   equ    $B4              ; Bios trap vector location
  10.  
  11. ;                   __________________________
  12.  
  13.           Even                    ; get on even address
  14. start:
  15.           lea    stack,SP         ; set stack pointer
  16.           clr.l  -(SP)            ; use our SP
  17.           move.w #$20,-(SP)       ; goto SUPERVISOR mode
  18.           trap   #1
  19.           addq.l #6,SP
  20. SUPER:    move.l trap13,A0        ; get ptr to inque
  21.           cmp.l  #'WsA0',-4(A0)   ; Check test
  22.           bne.s  done             ; PRTSPL installed?
  23.           add.l  -8(A0),A0        ; Yes. Point A0 at bfr ptr's
  24.           clr.l  (A0)             ; Stop print
  25. done:     move.l D0,-(SP)         ; Old SSP
  26.           move.w #$20,-(SP)       ; leave SUPERVISOR mode
  27.           trap   #1
  28.           addq.l #6,SP
  29.           clr.w  -(SP)            ; Terminate & free memory
  30.           trap   #1               ; call gem
  31.  
  32. stlow:    dc.w   0                ; bottom of stack
  33. stack:    equ    stlow+1024       ; 1k stack
  34.  
  35.